home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Files / XTND 1.3.6 / Application Examples / PascalSource / THINK ƒ / XTNDPictTranslator.p < prev    next >
Encoding:
Text File  |  1991-05-22  |  1.4 KB  |  37 lines  |  [TEXT/PJMM]
  1. {************************************************************************}
  2. {*                                                                        *}
  3. {*    XTNDPictTranslator.p                                                *}
  4. {*                                                                        *}
  5. {*    Header file for PICT import translator.                                *}
  6. {*                                                                        *}
  7. {*    Copyright © 1988-91 Claris Corporation                                *}
  8. {*    All Rights Reserved                                                    *}
  9. {*                                                                        *}
  10. {************************************************************************}
  11. UNIT XTNDPictTranslator;
  12. INTERFACE
  13.  
  14.     USES
  15.         types, osutils, files, folders, QuickDraw, Dialogs, XTNDInterface;
  16.  
  17.     CONST
  18. { Defines for Directive to be passed to picture import translators }
  19.         importGetPict = 1;
  20.         importGetEPSF = 2;
  21.  
  22.     TYPE
  23. { This is the parameter block for passing information to a picture import translator }
  24.         PictImportParmBlkPtr = ^PictImportParmBlk;
  25.         PictImportParmBlk = RECORD
  26.                 result: OSErr;            { Return code, 0 if successful, error code otherwise }
  27.                 dataRefNum: INTEGER;        { Reference number of the data fork to be read by the translator }
  28.                 resRefNum: INTEGER;        { Reference number of the resource fork to be read by the translator }
  29.                 thePicture: PicHandle;        { Handle to the picture to be read }
  30.                 directive: INTEGER;        { Indicates the action to be performed }
  31.                 dataHandle: Handle;            { Handle to additional data }
  32.                 theReply: SFReply;        { Standard reply record describing the file being translated }
  33.                 thisTranslator: TransDescribe;    { TransDescribe record describing this translator }
  34.             END;
  35.  
  36. IMPLEMENTATION
  37. END.